home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / batch / chequals.lha / CheckQuals / CheckQualifiers.dok < prev    next >
Text File  |  1995-04-16  |  2KB  |  87 lines
  1.  
  2.                               CheckQualifiers
  3.                               ~~~~~~~~~~~~~~~
  4.                               
  5.                                 Version 1.4
  6.                                 
  7.                                 15-Jan-1995
  8.  
  9.  
  10. Legal Stuff:
  11. ~~~~~~~~~~~~
  12. DISCLAIMER: CHECKQUALIFIERS SOFTWARE IS PROVIDED "AS-IS", NO WARRANTIES OF
  13. ANY KIND ARE MADE. ALL USE IS AT YOUR OWN RISK.
  14.  
  15. Copyright: Freeware
  16.  
  17. CheckQualifiers wurde auf einem A4000 mit OS 3.1 (V40) geschrieben und
  18. getestet, sollte aber (theoretisch) ab 68000 und OS 2.04 (V37) laufen.
  19.  
  20. Beschreibung:
  21. ~~~~~~~~~~~~~
  22. CheckQualifiers ist ein CLI-Progrämmchen, das nachsieht, ob gegebene
  23. Zusatztasten (Shift, Mausknöpfe, ...) gegenwärtig gedrückt sind und
  24. abhängig davon verschiedene Werte zurückgibt, die dann abgefragt werden
  25. können:
  26.  
  27. 0: keine der angegebenen Zusatztasten
  28. 1: mindestens eine der angegebenen Zusatztasten, aber nicht alle und
  29.    möglicherweise weitere
  30. 2: alle angegebenen Zusatztasten und noch mindestens eine weitere
  31. 3: genau die angegebenen Zusatztasten
  32.  
  33. Solange kein Fehler aufttritt und die Schablone nicht ausgegeben wird macht
  34. CheckQualifiers keine Ausgabe, so daß ein geschlossenes CLI-Fenster
  35. (hoffentlich) nicht aufgeht.
  36.  
  37. Schablone:
  38. LSHIFT/S,RSHIFT/S,CAPSLOCK/S,CONTROL/S,LALT/S,RALT/S,LCOMMAND/S,RCOMMAND/S,
  39. MIDBUTTON/S,RIGHTBUTTON/S,LEFTBUTTON/S
  40.  
  41. Beispiel:
  42. ~~~~~~~~~
  43. Es wird auf LSHIFT und LALT abgefragt. Da der Inhalt von $rc (der
  44. Return-Code von CheckQualifiers) von IF verändert wird, muß er bei mehreren
  45. IF-Abfragen zwischengespeichert werden.
  46.  
  47.     CheckQualifiers LSHIFT LALT
  48.     Echo >ENV:cqrc $rc
  49.     
  50.     IF VAL $cqrc EQ 0
  51.         Echo "weder LSHIFT noch LALT"
  52.     ENDIF
  53.     
  54.     IF VAL $cqrc EQ 1
  55.         Echo "LSHIFT oder LALT, aber nicht beide"
  56.     ENDIF
  57.     
  58.     IF VAL $cqrc EQ 2
  59.         Echo "LSHIFT und LALT und nochetwas"
  60.     ENDIF
  61.     
  62.     IF VAL $cqrc EQ 3
  63.         Echo "LSHIFT und LALT und sonst nichts"
  64.     ENDIF
  65.     
  66.     UnSetEnv cqrc
  67.  
  68. EQ prüft auf Gleichheit. GT, GE, NOT GT und NOT GE prüfen auf >, >=, <= und
  69. <.
  70.  
  71. Autor:
  72. ~~~~~~
  73. Thomas Ansorge
  74. Dinkelackerring 55
  75. D-67435 Neustadt an der Weinstraße
  76. Germany
  77. EUROPE
  78.  
  79. Grüße gehen an...
  80. ~~~~~~~~~~~~~~~~~
  81. meine Beta-Tester Michael und Stephan,
  82.  
  83. alle, die auch 'mal 'was schreiben und veröffentlichen, ohne etwas dafür zu
  84. verlangen.
  85.  
  86. Happy checking! Th. :-})
  87.